home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / Programming / EasyPLUGINs / examples / multitext_demo.e < prev    next >
Encoding:
Text File  |  1998-05-20  |  2.7 KB  |  87 lines
  1.  
  2. /*
  3.  
  4.     multitext_demo.e
  5.  
  6. */
  7.  
  8. OPT PREPROCESS, OSVERSION=37
  9.  
  10. MODULE 'tools/easygui', 'easyplugins/multitext', 'graphics/text',
  11.        'utility', 'utility/tagitem', 'diskfont'
  12.  
  13. DEF multitext_a:PTR TO multitext_plugin,
  14.     multitext_b:PTR TO multitext_plugin,
  15.     multitext_c:PTR TO multitext_plugin,
  16.     disabled=FALSE, bars=FALSE,
  17.     courier=NIL, courier_ta:PTR TO textattr,
  18.     times=NIL, times_ta:PTR TO textattr
  19.  
  20. PROC main() HANDLE
  21.  
  22.     IF (utilitybase:=OpenLibrary('utility.library', 37))=NIL THEN Raise("utlb")
  23.     IF (diskfontbase:=OpenLibrary('diskfont.library', 37))=NIL THEN Raise("dflb")
  24.  
  25.     courier_ta:=['times.font', 15, FSF_BOLD, NIL]:textattr
  26.     times_ta:=['courier.font', 13, FS_NORMAL, NIL]:textattr
  27.  
  28.     courier:=OpenDiskFont(courier_ta)
  29.     times:=OpenDiskFont(times_ta)
  30.  
  31.     NEW multitext_a.multitext([PLA_MultiText_Text, ['First test:', 'multitext_plugin', 'with many lines'],
  32.                                TAG_DONE]),
  33.         multitext_b.multitext([PLA_MultiText_Text, ['Second test:', 'multitext_plugin', 'with many lines'],
  34.                                PLA_MultiText_Font, courier_ta,
  35.                                PLA_MultiText_Justification, PLV_MultiText_JustifyLeft,
  36.                                TAG_DONE]),
  37.         multitext_c.multitext([PLA_MultiText_Text, ['Third test:', 'multitext_plugin', 'with many lines'],
  38.                                PLA_MultiText_Font, times_ta,
  39.                                PLA_MultiText_Justification, PLV_MultiText_JustifyRight,
  40.                                TAG_DONE])
  41.  
  42.     easyguiA('multitext_plugin example',
  43.              [ROWS,
  44.                  [PLUGIN, 1, multitext_a],
  45.                  [PLUGIN, 1, multitext_b],
  46.                  [PLUGIN, 1, multitext_c],
  47.                  [COLS,
  48.                     [CHECK, {toggle_disabled}, '_Disabled?', disabled, FALSE, -1, "d"],
  49.                     [CHECK, {toggle_bars}, '_Bars?', bars, FALSE, -1, "b"],
  50.                     [SPACEH],
  51.                     [BUTTON, 0, 'Quit']
  52.                  ]
  53.              ])
  54.  
  55. EXCEPT DO
  56.  
  57.     END multitext_a, multitext_b, multitext_c
  58.  
  59.     IF courier THEN CloseFont(courier)
  60.     IF times THEN CloseFont(times)
  61.  
  62.     IF diskfontbase THEN CloseLibrary(diskfontbase)
  63.     IF utilitybase THEN CloseLibrary(utilitybase)
  64.  
  65. ENDPROC
  66.  
  67. PROC toggle_disabled()
  68.  
  69.     IF disabled THEN disabled:=FALSE ELSE disabled:=TRUE
  70.  
  71.     multitext_a.set(PLA_MultiText_Disabled, disabled)
  72.     multitext_b.set(PLA_MultiText_Disabled, disabled)
  73.     multitext_c.set(PLA_MultiText_Disabled, disabled)
  74.  
  75. ENDPROC
  76.  
  77. PROC toggle_bars()
  78.  
  79.     IF bars THEN bars:=FALSE ELSE bars:=TRUE
  80.  
  81.     multitext_a.set(PLA_MultiText_DrawBar, bars)
  82.     multitext_b.set(PLA_MultiText_DrawBar, bars)
  83.     multitext_c.set(PLA_MultiText_DrawBar, bars)
  84.  
  85. ENDPROC
  86.  
  87.